home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / demo irq (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  808b  |  70 lines
  1. 10 letc=peek(197)
  2. 11 ifx=1then440
  3. 12 ifx=2then560
  4. 20 ifb=cthen700
  5. 30 letb=c
  6. 40 ifc=4then60
  7. 50 goto120
  8. 60 poke198,5
  9. 70 poke631,76
  10. 80 poke632,73
  11. 90 poke633,83
  12. 100 poke634,84
  13. 110 poke635,13
  14. 120 ifc=5then140
  15. 130 goto190
  16. 140 poke198,4
  17. 150 poke631,82
  18. 160 poke632,85
  19. 170 poke633,78
  20. 180 poke634,13
  21. 190 ifc=3then210
  22. 200 goto300
  23. 210 poke198,8
  24. 220 poke631,76
  25. 230 poke632,207
  26. 240 poke633,34
  27. 250 poke634,36
  28. 260 poke635,34
  29. 270 poke636,44
  30. 280 poke637,56
  31. 290 poke638,13
  32. 300 ifc=6then320
  33. 310 goto700
  34. 320 poke198,10
  35. 330 poke631,76
  36. 340 poke632,207
  37. 350 poke633,29
  38. 360 poke634,29
  39. 370 poke635,29
  40. 380 poke636,29
  41. 390 poke637,29
  42. 400 poke638,29
  43. 410 poke639,29
  44. 420 poke640,29
  45. 430 letx=1
  46. 435 goto700
  47. 440 poke198,10
  48. 450 poke631,29
  49. 460 poke632,29
  50. 470 poke633,29
  51. 480 poke634,29
  52. 490 poke635,29
  53. 500 poke636,29
  54. 510 poke637,29
  55. 520 poke638,29
  56. 530 poke639,29
  57. 540 poke640,29
  58. 550 letx=2
  59. 555 goto700
  60. 560 poke198,7
  61. 570 poke631,29
  62. 580 poke632,29
  63. 590 poke633,44
  64. 600 poke634,56
  65. 610 poke635,44
  66. 620 poke636,49
  67. 630 poke637,13
  68. 640 letx=0
  69. 700 sys59953
  70.